﻿Module Program
    Sub Main()
        Dim listaDeNomes = New List(Of String) From
        {
            "Carlos",
            "Rita",
            "Marcos",
            "Joana"
        }

        Dim nomesComALetraC = listaDeNomes.
            Where(Function(n)
                      Return (n.ToLower().Contains("c"))
                  End Function).
              ToList()

        nomesComALetraC.ForEach(Sub(nome)
                                    Console.WriteLine("Nome: {0}", nome)
                                End Sub)
    End Sub
End Module
